home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue53 / Clinic / CopyAFileForm.dfm / CopyAFileForm.txt
Encoding:
Text File  |  1999-12-01  |  849 b   |  41 lines
  1. object Form1: TForm1
  2.   Left = 192
  3.   Top = 108
  4.   BorderStyle = bsDialog
  5.   Caption = 'File Copying Test'
  6.   ClientHeight = 98
  7.   ClientWidth = 178
  8.   Color = clBtnFace
  9.   Font.Charset = DEFAULT_CHARSET
  10.   Font.Color = clWindowText
  11.   Font.Height = -11
  12.   Font.Name = 'MS Sans Serif'
  13.   Font.Style = []
  14.   OldCreateOrder = True
  15.   Position = poScreenCenter
  16.   PixelsPerInch = 96
  17.   TextHeight = 13
  18.   object btnCopy: TButton
  19.     Left = 51
  20.     Top = 36
  21.     Width = 75
  22.     Height = 25
  23.     Caption = '&Copy A File'
  24.     Default = True
  25.     TabOrder = 0
  26.     OnClick = btnCopyClick
  27.   end
  28.   object dlgSource: TOpenDialog
  29.     Filter = 'Any file (*.*)|*.*'
  30.     Title = 'Choose a file to copy'
  31.     Left = 24
  32.     Top = 32
  33.   end
  34.   object dlgTarget: TSaveDialog
  35.     Filter = 'Any file (*.*)|*.*'
  36.     Title = 'Choose a destination file name'
  37.     Left = 128
  38.     Top = 32
  39.   end
  40. end
  41.